unit smConst;

interface

const
  DefaultScreenWidth: Integer = 800;
  DefaultScreenHeight: Integer = 600;

  DefaultGUIBackgroundColor: Cardinal = $00000000;
  DefaultGUIModalColor: Cardinal = $A0404040;
  DefaultGUIFontColor: Cardinal = $FF202020;
  DefaultGUIElementWidth: Integer = 150;
  DefaultGUIElementHeight: Integer = 100;
  DefaultGUIElementBorderColor: Cardinal = $FFA0A0A0;
  DefaultGUIElementBackgroundColor: Cardinal = $FFF0F0F0;
  DefaultGUIControlWidth: Integer = 45;
  DefaultGUIControlHeight: Integer = 15;

  DefaultSceneLoadFunction: AnsiString =
    'function DefaultInitialize() Game.Log("Default initialization") end';
  DefaultSceneUnloadFunction: AnsiString =
    'function DefaultFinalize() Game.Log("Default finalization") end';
  DefaultSceneLoadName: AnsiString = 'DefaultInitialize';
  DefaultSceneUnloadName: AnsiString = 'DefaultFinalize';
  LuaActiveScene: AnsiString = 'ActiveScene';
  LuaInitialize: AnsiString = 'systemInitialize';
  LuaFinalize: AnsiString = 'systemFinalize';
  LuaOnLoad: AnsiString = 'systemOnLoad';
  LuaOnTime: AnsiString = 'systemOnTime';
  LuaOnUnload: AnsiString = 'systemOnUnload';

  ModalResult_OK: Integer = 0;
  ModalResult_CANCEL: Integer = 1;

  LuaMainObject: AnsiString = 'Game';

var
  ScreenWidth: Integer;
  ScreenHeight: Integer;

implementation

Initialization
  ScreenWidth  := DefaultScreenWidth;
  ScreenHeight := DefaultScreenHeight;

end.
